home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / L-M / LogoMation 1.0.1 ƒ / Examples / A River / A River
Encoding:
Text File  |  1993-03-11  |  1014 b   |  52 lines  |  [UVtx/UVtl]
  1.  
  2. light_Blue = "21887,35456,65535"
  3. darker_Blue = "9141,29001,65535"
  4. defPen(light_Blue)
  5. Clear picture="background picture"
  6. draw(light_Blue, darker_Blue, 4)
  7.  
  8.  
  9. ////////////////////
  10. Function defPen(color)
  11.     Picture "pen=" . color, redefine
  12.         Left 60
  13.         Fill 1,9141,29001,65535
  14.             Right 30
  15.             Forward 10
  16.             Left 30
  17.             Forward 20
  18.             Left 90
  19.             Forward 6+6
  20.             Left 90
  21.             Forward 20
  22.             Left 30
  23.             Forward 10
  24.  
  25. Function draw(marker, c, w)
  26.     wh = 4 + width()/2
  27.     Pen name="line"
  28.     Color c
  29.     Width w
  30.     Up
  31.     Pen name="marker", picture="pen=" . marker, end="no"
  32.     Goto -wh,-100,0
  33.     Pen speed=250
  34.     S = 0
  35.     y = -100
  36.     M = 1
  37.     Repeat 3
  38.         Sound "sss...",nowait
  39.         Curve  M*drawH(),y,t,-wh,wh
  40.         Sound "",wait
  41.         y = y -3
  42.         M = -M
  43. Function drawH()
  44.     X = x()
  45.     Y = y()
  46.     Pen name="line"
  47.     Goto X,Y,0
  48.     If S > 1
  49.         Down
  50.     S = S+1
  51.     Pen name="marker"
  52.     Return t